﻿Imports System
Imports System.Collections.Generic

Namespace System.Workflow.Runtime.Tracking
    <Serializable> _
    Public NotInheritable Class WorkflowTrackingLocation
        ' Methods
        Public Sub New()
            Me._events = New List([Of] TrackingWorkflowEvent)
        End Sub

        Public Sub New(ByVal events As IList([Of] TrackingWorkflowEvent))
            Me._events = New List([Of] TrackingWorkflowEvent)
            Me._events = events
        End Sub

        Friend Function Match(ByVal status As TrackingWorkflowEvent) As Boolean
            Return Me._events.Contains(status)
        End Function


        ' Properties
        Public ReadOnly Property Events As IList([Of] TrackingWorkflowEvent)
            Get
                Return Me._events
            End Get
        End Property


        ' Fields
        Private _events As IList([Of] TrackingWorkflowEvent)
    End Class
End Namespace

